home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Transportation / InventorLabs - Transportation.iso / pc / builders / media / netacess / url95.dir / 00029_Script_29 < prev    next >
Text File  |  1996-10-10  |  437b  |  16 lines
  1. on exitFrame
  2.   global TheWeb,WebError
  3.   
  4.   set TheUser = the text of member "UserName"
  5.   set ThePassword = the text of member "Password"
  6.   
  7.   --  set WebError = TheWeb(mOpenKeyword,"hminet",TheUser,ThePassword)
  8.   set WebError = TheWeb(mOpenURL,"hminet",TheUser,ThePassword)
  9.   
  10.   
  11.   if WebError <> 0 then
  12.     set foo = TheWeb(mGetWebError,WebError)
  13.     set bar = foo && "=" && string(WebError)
  14.     go "AOLHalt"
  15.   end if
  16. end